Perl for Win32
System Module Extensions

Conventions

The following conventions are used throughout this document.

arguments:

argname a required argument.

[argname] an optional argument.

(out) argname an output argument, typically requires a reference for this argument.

Return values

All methods and functions return TRUE on success. FALSE on failure or unless otherwise noted. If an error occurs the Perl built in variable, '$!' is set. A reference to '$!' as a string will return a string explaining the error.

All classes contain a destructor DESTROY, that can be called to destroy objects. The destructor is called automaticly when the object goes out of scope. The destructor frees any System Objects associated with the Perl Object.

Win32::Process

Win32::IPC

Win32::Mutex

Win32::ChangeNotification

Win32::Process

Functions

Create((out)$ProcessObj,$ApplicationName,$CommandLine,$InheritHandles,$CreateOptions,$CurrentDir)

(out)$ProcessObj: Reference to a Process Object.
$ApplicationName: Full path of executable module.
$CommandLine: Command Line as seen by executable
$InheritHandles: Flag for handle inheritance. 1=true, 0=false.
$CreateOptions: Process creation flags. ( see description below)
$CurrentDir: Location of working directory for executable

The Create function acts as a constructor for the Process class. The executable module ($ApplicationName) is executed and passed $CommandLine. $CommandLine is the full command line for the new process.

To execute a perl script:

$CommandLine = 'perl myscript.pl';

The options for CreateOptions are:

Option Name              Description              

CREATE_DEFAULT_ERROR_MODE  Give the new process     
                           the default error mode.  

CREATE_NEW_CONSOLE         The new process has a    
                           new console. This can't  
                           be used with             
                           DETACHED_PROCESS.        

CREATE_NEW_PROCESS_GROUP   The new process is the   
                           root of a new process    
                           group.                   

CREATE_SEPARATE_WOW_VDM    The new process is run   
                           in it's own Virtual Dos  
                           Machine (VDM). Only      
                           applicable to 16-bit     
                           apps.                    

CREATE_SUSPENDED           The primary thread of    
                           the process is created   
                           in a suspended state.    
                           The process can be       
                           started with the Resume  
                           method below.            

CREATE_UNICODE_ENVIRONMENT The environment block    
                                  of the new process uses  
                           UNICODE characters.      

DEBUG_PROCESS              The calling process is   
                           treated as a debugger,   
                           and the new process is   
                           being debugged.          

DEBUG_ONLY_THIS_PROCESS  If the calling process   
                         is being debugged, then  
                         the new process will     
                         not be debugged.         

DETACHED_PROCESS         The new process does     
                         not have access to the   
                         console of the calling   
                         process.

Methods

Kill( $ExitCode)

$ExitCode: The Exit code that the process should return.

Kills the process.

Suspend( )

Suspend the process.

Resume()

Resume a suspended process. This call can be used to resume a process that was created with the CREATE_SUSPENDED flag.

GetPriorityClass( (out) $Priority )

(out)$Priority: The priority class of the process.

SetPriorityClass( $Priority )

$Priority: The Priority to set the Process to.

The GetPriorityClass and SetPriorityClass methods allow control over the priority of the process. The $Priority can be one of

PriorityClass        Description                  

IDLE_PRIORITY_CLASS  Indicates a process whose
                     threads run only when the
                     system is idle. (ex: screensaver )

fNORMAL_PRIORITY_CLASS  Normal process scheduling.

HIGH_PRIORITY_CLASS  Indicates a process that     
                     performs time-critical
                     tasks that must be executed
                     immediately. 

REALTIME_PRIORITY_CLASS The highest process          
                     priority, even pre-empts OS threads.

GetExitCode( (out) $ExitCode );

(out)$ExitCode: The exit code.

GetExitCode can be used to find out how or if a process has exited.

Wait($Timeout)

$Timeout: The number of milliseconds to wait for process to end, for no timeout value, use INFINITE.

Wait for the process to exit. Wait returns FALSE if it times out. $! Is set to WAIT_FAILED in this case.

Example

        #'use' the process module.
        use Win32::Process;
        
        #theWin32:: module. Includes the Win32 error checking etc.
        # see Win32:: section for included functions.
        use Win32;
        
        sub Error{ 
        print Win32::FormatMessage( Win32::GetLastError() );
        }
        #Create the process object.
        Win32::Process::Create($ProcessObj,  #object to hold process.
                             "C:/winnt35/system32/Notepad.exe" #executable
                             "Notepad temp.txt" #command line
                             0,   #no inheritance.
                             DETACHED_PROCESS, #separate process
                             ".")|| die &Error; #current dir.
        #Set the process priority
        $ProcessObj->SetPriority(NORMAL_PRIORITY_CLASS)||die &Error;

        #Wait for the process to end. NO timeout 
        $ProcessObj->Wait(INFINITE )|| die &Error;

        $ProcessObj->GetExitCode( $ExitCode )||die &Error;
        print" Notepad exited with $ExitCode\n";

Win32::Semaphore

Functions

Create ((out)$SemaphoreObj,$InitialCount,$MaxCount,$Name);

$SemaphoreObj: Reference to a Semaphore Object.
$InitialCount: The initial count of the semaphore object.
$MaxCount: The maximum count of the semaphore.
$Name: A string containing a name for the semaphore.

The Create Function creates a semaphore object and returns the reference in the $SemaphoreObj scalar. The semaphore is created with an initial value of $InitialCount. The maximum number of accesses allowed is set to $MaxCount.



DESTROY( $SemaphoreObj )

$SemaphoreObj: Reference to a Semaphore Object.

The DESTROY Function destroys the Semaphore object. This method is automatically called by Perl when the $SemaphoreObject scalar goes out of scope.

Methods

Wait( $TimeOut )

$TimeOut: Time to wait ( in Milliseconds )

The Wait method causes the calling process to wait on the
Semaphore. If the Semaphore is not released in $TimeOut
milliseconds, the call returns, and the return value should be
checked. For no timeout value, use the predefined constant INFINITE.

Release( $ReleaseCount ,(out) $lastCount)

: $ReleaseCount
Amount to increase Semaphore count
$LastCount: Previous value of the Semaphore.

The Release Method releases a semaphore and increments the count
by $ReleaseCount. The value of the Semaphore before the
change is recorded in the $LastCount var.

Example

        use Win32::Semaphore;
        use Win32;
        Win32::Semaphore::Create($Sem,1,1,"Sem")||die &Error;
        #wait for access to the shared resource.
        if( $Sem->Wait(INFINITE)){ 
                #Access the shared resource here. 
                &Access( $Shared_Resource );
                $Sem->Release( 1,$last );
        }
        else{ print"Could not get access to shared resource\n";}

Win32::IPC

Functions

WaitForMultipleObjects(@objects , $WaitAll ,$TimeOut );

@objects: #a list of object references.
$WaitAll: #TRUE: wait for all objects.FALSE wait for first object to return.
$TimeOut;: #timeout value in milliseconds.

The WaitForMultipleObjects is used to coordinate multiple events.The @objects array can hold objects of type: Semaphore, Mutex, Process, or ChangeNotification. If the $WaitAll var contains a true value ( non zero ) then the call waits for all of the objects, otherwise, it will return when the first object returns.

Example

Win32::Semaphore::Create($Sem, 1,1,"Sem")||die $!;
Win32::Mutex::Create( $mut,0,"Mut") ||die $!;
#note: the WaitForMultipleObjects call is inherited, and
# not referenced directly.
Win32::Semaphore::WaitForMultipleObjects(($Sem,$mut),1, 10000 ) || die $!;

Implementation note

The IPC package is inherited by Win32::Process, Win32::Semaphore, Win32::ChangeNotification, and Win32::Mutex, it does not need to be implicitly 'use'd.

Win32::Mutex

Functions

Create( (out) $MutexObj, $InitialOwner,$Name )

$MutexObj: Reference to a mutex object.
$InitialOwner: Flag to indicate initial ownership.
$Name: Name of mutex

Create creates a mutex object and returns the reference in $MutexObj. If the $InitialOwner flag is set ( nonzero ) then the process calling the Create function has immediate ownership of the mutex. Otherwise, the mutex is available. $Name can be used by other processes in the Win32::Mutex::Open call to create an object to reference an already created mutex.

Open($MutexObj,$Name)

(out)$MutexObj: Reference to a mutex object.
$Name: A string naming an already created mutex.

Open creates a mutex object to access an already Created mutex. The $Name must point to an already created object or this call will fail. Methods Release() Release relinquishes ownership of the mutex, allowing anyone Waiting on the mutex to take ownership.

Wait( $TimeOut );

$TimeOut: Time out for wait ( in milliseconds ).

Wait causes the calling process to wait for $TimeOut milliseconds for the ownership of the mutex. If the mutex doesn't come available before the timeout, the call returns false. To specifiy and infinite timeout, set $TimeOut to INFINITE.

Example

                   #Create a mutex object
                  Win32::Mutex::Create( $Mut,0, "MyMutex")|| die $!;
                  #Use it
.                 sub EnterArea
                 { 
                          local( $mut ) = @_;
                          $mut->wait( 5000 )||die $!;
                          #access away!!! 
                          $mut->Release();
                  }

Win32::ChangeNotification

Functions

FindFirst( (out)$Object,$PathName,$WatchSubtree,$Filter)

(out)$Object: ChangeNotification Object.
$PathName: Path to directory to monitor
$WatchSubTree: TRUE: notify for changes to subtree.FALSE-don't monitor subtree.
$Filter: Specifies the filter conditions that satisfy a change notification wait. The FindFirst function creates a notification object, and returns the reference in $Object. $Filter can be one or more of the following:

Filter Option                Description                

FILE_NOTIFY_CHANGE_FILE_NAME Any naming changes in the  
                             watched directory satisfy  
                             a change notification      
                             wait.  Changes include     
                             renames, deletions, and    
                             creations.                 

FILE_NOTIFY_CHANGE_DIR_NAME  Any directory name         
                             changes.                   

FILE_NOTIFY_CHANGE_ATTRIBUTES Any attritbute changes     
                                                       

FILE_NOTIFY_CHANGE_SIZE      Any file-size change.      
                             The notification only      
                             occurs when the change is  
                             written to disk. If disk   
                             IO is cached, the change   
                             occurs when the cache is   
                             flushed.                   

FILE_NOTIFY_CHANGE_LAST_WRITE Any change to the last     
                             write time for a file.     
                             See above for notes on     
                             caching.                   

FILE_NOTIFY_CHANGE_SECURITY  Any security descriptor    
                             changes in the directory.

Methods

FindNext(); The FindNext method requests that the operating system signal the change notification object the next time it detects an appropriate change.

Close(); Stops the notification object monitoring.

Wait( $TimeOut) $TimeOut #time out in milliseconds. The Wait method causes the calling process to block until notification of the change.

DESTROY() The DESTROY method is called when the ChangeNotification object goes out of scope. This will close the notification.

Example

             Win32::ChangeNotification::FindFirst( $cnobj,
                             "d:/mydir/",1,"
                             FILE_NOTIFY_CHANGE_FILE_NAME")||die $!; 
 
               #Wait for the change. 
               $cnobj->FindNext();
               $cnobj->Wait( INFINITE ); 
               #do something about the change. 
               &Notify($Someone);
               $cnobj->Close;

Win32::Eventlog

Functions

Open( (out) $EventObj, $SourceName, [$ServerName]);

(out) $EventObj;: Reference to an EventLog Object.
$SourceName;: Name of the source of the event.
$ServerName;: Optional: name of machine. If none, assumes local.

Open the eventlog on the specified machine, if no server is specified, the local machine is used. An Eventlog object is returned in $EventObj.

OpenBackup( (out)$EventObj, $FileName, [$ServerName]);

(out)$EventObj: Reference to an Eventlog Object.
$FileName: name of the file containing the backup eventlog.
$ServerName: Optional: UNC name of the server containing the backup log.

Open a backup eventlog and return an object to control it. If $ServerName is not given the local machine is used.

Methods

Backup( $filename )
: $filename
file to write the eventlog to.
Save the current open event log to a file Read($ReadFlags,$RecordOffset,(out)%EventInfo)
(out) $ReadFlags: Specifies how to read log
$RecordOffset: Number of first record
(out)%EventInfo: Event information
The Read method reads an entry from the eventlog. $ReadFlags can be any combination of:

ReadFlag option              Description                

EVENTLOG_FORWARDS_READ       Eventlog is read in        
                             forward chronological      
                             order.                     

EVENTLOG_BACKWARDS_READ      Eventlog is read in        
                             reverse chronological      
                             order.                     

EVENTLOG_SEEK_READ           The read begins at the     
                             record specified by the    
                             $RecordOffset parameter.   
                             Must also specify          
                             EVENT_LOG_FORWARD_READ or  
                             EVENTLOG_BACKWARDS_READ.   

EVENTLOG_SEQUENTIAL_READ     The read continues         
                             sequentially from the      
                             last read call.

See the Report method for information on the %EventInfo hash. Report( $Event, %EventInfo )

$Event: A scalar defining the type of event.
%EventInfo: A hash containing the event info.

Reports an event. Implicitly calls RegisterEventSource.

The options for $Event are:

$Event Options                Description               

EVENTLOG_ERROR_TYPE           Error event               

EVENTLOG_WARNING_TYPE         Warning event             

EVENTLOG_INFORMATION_TYPE     Information event         

EVENTLOG_AUDIT_SUCCESS_TYPE   Success Audit event       

EVENTLOG_AUDIT_FAILURE_TYPE   Failure Audit event.      

%EventInfo contains the following:

Key            Value                                    

Category       integer value for the category of the    
               event (app defined )                     

EventID        ID value of the Event. Source specific,  
               any value.                               

EventRawData   The Raw binary data                      

Strings        Any text strings to merge                

user           user name.

GetOldest( (out) $oldest ); Returns the Absolute record number of the oldest record in the event log.

GetNumber( (out) $NumberOfEvents ) Returns the number of events.

Clear( [ $filename ] ) If the $filename option is given, then the current eventlog is written to the file Clears the event log.

Example 1

                   use Win32::Eventlog;
                   sub TEST1{ 
                             my $number, $EventLog;
                            OpenEventObj ( $EventLog , 
                                     "System")|| die $!;
                            $EventLog->GetNumberOfEvents( $number )|| die $!;
                            print "There are $number records in the System Event Log\n";
                   }

Example 2

sub TEST2{ 
# define the event to log. my $number, $EventLog; 
            $Event = { 
                       'EventType' => ERROR; 
                       'Category' => 0; 
                       'EventID' => 0x1003; 
                       'EventRawData' => NULL; 
                       'Strings' =>"SampleApp";
                  }
           # open the event log.
           OpenEventObj( $EventLog , "SamplApp")||die $!;
   #report the event and check the error 
            $EventLog->ReportEvent( %$Event )||die $!;

Win32::Registry

methods

open((out)RegistryObj,$key )

(out)RegistryObj: Reference to a reference object
$key: Pre-defined key.

Open the specified registry key and create an object to access the key. If the specified key does not exist, it is not created.$Key can hold any already opened key.

When the Registry module is loaded, four Registry objects are created in the main:: namespace. These predefined registry objects are:

$HKEY_LOCAL_MACHINE
$HKEY_USERS
$HKEY_CURRENT_USER
$HKEY_CLASSES_ROOT

create( (out)$RegistryObj, $key )

$RegistryObj: Reference to a registy object.
$key: Name of a key.

If the key exists, then open it, otherwise create it. The User must have the security to create a key.

SetValue( $subkey,$type,$value);

$subkey: Name of subkey
$type: Type of value
$value: Value

Set the value of the subkey of the current key to be $value.

QueryValue( (out)$value,(out)$type, $name )

(out)$value: Value of var $name
(out)$type: Type of var $name
$name: Name of value to query.

Sets $value, and $type for the specific name value in the current key.

QueryKey( (out)$class,(out)$NumberOfSubkeys,(out) NumberOfValues )

(out)$class: Class of the key.
(out)$NumberOfSubkeys: Number of subkeys of the current key.
(out)NumberOfValues: Number of values in the current key.

Get the information from the current key.

GetKeys( (out) \@Subkeys)

\@SubKeys: A reference to a list to hold the subkeys.

Return a list of character strings representing subkeys of the current key.

GetValues( (out)@Values )

Save( $filename)

$filename: File to save the current hive of the registry to.

Save registry from current location. Set the security attributes of the file to the

Load( $subkey, $filename );

$subkey: The subkey to load the file into
$filename: The file to load into the current key.

Load a registry file.

Example

   use Win32::Registry;
   $HKEY_LOCAL_MACHINE->Open($NewObj,"MyKey")||die $!;
   $NewObj->SetValue( "MySubKey",REG_SZ,5 );

Win32::NetAdmin

Functions

GetDomainController($server,$domain,(out)returnedName)

$server: The server to request.
$domain: The windows domain name.
(out)$returnedName: The result.

Return the name of the domain controller for server

UserCreate($server, $userName, $password,$passwordAge,$privilege,$homeDir, $comment, $flags, $scriptPath)

$server: The name of the server
$userName: The name of the new user.
$password: The users password
$PasswordAge: Time before password expires.
$privilege: The Privileges of the new user( see below for options )
$homeDir: The home directory of the user.
$comment: A relevant comment about the user.
$flag: A flag controlling user creation ( see below for options )
$scriptPath Pathname of the login script.

Creates a user on server with password, passwordAge, privilege,homeDir, comment, flags, and scriptPath

$Privilege options:

USER_PRIV_MASK
USER_PRIV_GUEST
USER_PRIV_USER
USER_PRIV_ADMIN

$flag options:

UF_TEMP_DUPLICATE_ACCOUNT
UF_NORMAL_ACCOUNT
UF_INTERDOMAIN_TRUST_ACCOUNT
UF_WORKSTATION_TRUST_ACCOUNT
UF_SERVER_TRUST_ACCOUNT
UF_MACHINE_ACCOUNT_MASK
UF_ACCOUNT_TYPE_MASK
UF_DONT_EXPIRE_PASSWD
UF_SETTABLE_BITS
UF_SCRIPT
UF_ACCOUNTDISABLE
UF_HOMEDIR_REQUIRED
UF_LOCKOUT
UF_PASSWD_NOTREQD
UF_PASSWD_CANT_CHANGE

UserDelete($server, $user)

$server: The name of the server.
$user: The name of the user to delete.

Deletes a user from server

UserGetAttributes($server, $userName, $password, $passwordAge,$privilege,$homeDir, $comment, $flags, $scriptPath)

$server: The name of the server.
$userName: The name of the user.
$password: The user's password.
$passwordAge: The time before the password expires.
$privilege: The user's privilege.
$homeDir: The user's home directory.
$comment: The user's comment.
$flags: Flags re: user's account.
$scriptPath: Pathname of user's login script.

Gets password, passwordAge, privilege, homeDir, comment, flags,and scriptPath for user.

UserSetAttributes($server, $userName, $password, $passwordAge,$privilege, $homeDir, $comment, $flags, $scriptPath)

$server: The name of the server.
$userName: The name of the user.
$password: The user's password.
$passwordAge: The time before the password expires .
$privilege: The user's privilege.
$homeDir: The user's home directory.
$comment: The user's comment.
$flags: Flags re: user's account
$scriptPath: Pathname of user's login script

Sets password, passwordAge, privilege, homeDir, comment, flags,and scriptPath for user

LocalGroupCreate($server, $group, $comment)
GroupCreate($server, $group, $comment)

$server: The name of the server.
$group: The name of the group to create.
$comment: A relevant comment for the group

Creates a group

LocalGroupDelete($server, $group)
GroupDelete($server, $group)

$server: The name of the server.
$group: The name of the group to delete.

Delete a group from the server.

LocalGroupGetAttributes($server, $groupName, (out)$comment)
GroupGetAttributes($server, $groupName,(out)comment)

$server: The name of the server.
$groupName: The name of the group
(out) $comment: Contains the comment for the group after the call returns.

Gets the comment for the group $group on the server $server.

LocalGroupSetAttributes($server, $groupName, $comment)
GroupSetAttributes($server, $groupName, $comment)

$server: The name of the server.
$groupName: The name of the group.
$comment: The comment to set for the group.

Sets the comment for the group $groupName on the server $server.

LocalGroupAddUsers($server, $groupName, $users)
GroupAddUsers($server, $groupName, @users)

$server: The name of the server.
$groupName: The name of the group.
@users: The names of the users to add.

Adds users to a group.

LocalGroupDelUsers($server, $groupName, @users)
GroupDelUsers($server, $groupName, @users)

$server: The name of the server.
$groupName: The name of the group.
@users: A list of user names to delete.

Deletes a list of users from a group.

LocalGroupIsMember($server, $groupName,$user)
GroupIsMember($server, $groupName, $user)

$server: Name of the server to query.
$groupName: Name of the group.
$user: name of the user, whose membership is being tested.

Returns TRUE if $user is a member of $groupName

LocalGroupGetMembers($server, $groupName, (out)\@userArray)
GroupGetMembers($server, $groupName,(out) \@userArray)

$server: The name of the server.
$groupName: The name of the group.
(out)\@userArray: A reference to an arry of users.

Fills userArray with the members of groupName

Example

   use Win32::NetAdmin;
   # set info for the user.
   $userName = 'TestUser';
   $password = '';
   $passwordAge = 0;
   $privilege = USER_PRIV_USER;
   $homeDir = 'c:\\';
   $comment = 'This is a test user';
   $flags = UF_SCRIPT;
   $scriptpath = 'C:\\';
   $groupName = 'TestGroup';
   $groupComment = "This is a test group";
   Win32::NetAdmin::UserCreate('', $userName,
                              $password, 
                              $passwordAge, 
                              $privilege, 
                              $homeDir, 
                              $comment, 
                              $flags,
                              $scriptpath ) || print "not ";
   
   Win32::NetAdmin::UserGetAttributes('',$userName, 
                              $Getpassword, 
                              $GetpasswordAge, 
                              $Getprivilege, 
                              $GethomeDir,
                              $Getcomment, 
                              $Getflags, 
                              $Getscriptpath ) || warn();

   ($password eq $Getpassword) || warn();
   ($passwordAge == $GetpasswordAge) || warn();
   ($homeDir eq $GethomeDir) || warn();
   ($comment eq $Getcomment) || warn();
   ($flags == ($Getflags&USER_PRIV_MASK)) || warn();
   ($scriptpath eq $scriptpath) || warn();

Implementation Note

The Win32::NetAdmin module is to allow control over the Windows NT users and group functions. These are not available on Windows 95. The module will not load on a Windows95 machine.

Win32::File

Functions

GetAttributes( $filename,(out)$FileAttributes)

$filename: Name of the file.
(out)$FileAttributes: Attributes of the file.

$FileAttributes contains one or more of the following values:

ARCHIVE
DIRECTORY
HIDDEN,
NORMAL
READONLY
SYSTEM
TEMPORARYATOMIC_WRITE,
XACTION_WRITE( for future use, don't specify ).

SetFileAttributes( $filename, $FileAttributes )

$filename: Name of the file.
$FileAttributes: Attributes of the file.

Set the attributes for the listed file.

Example

   use Win32::File;
   Win32::File::GetAttributes( "myfile.txt",$Attributes)||die $!;
   Win32::File::SetAttributes( "myfile.txt",($Attributes | READONLY )) ||die $!;

Win32::Service

Functions

StartService($hostname, $servicename )

$hostname: Name of the host.If NULL, then the localhost.
$servicename: String containing the name of the service to start.

StartService starts a service. This service must be registered with the Service Control Manager .

StopService($hostname, $servicename )

$hostname: Name of the host. If NULL, then the localhost.
$servicename: String containing the name of the service to stop.

StopService stops a service.

GetStatus($hostname, $servicename, (out)$status )

$hostname: Name of the host. If NULL, then the localhost.
$servicename: Name of the service
(out)$status: Scalar containing the result of the GetStatus call.

The GetStatus call returns the status as a hash reference in $status.
The keys of this hash are:

ServiceType
CurrentState
ControlsAccepted
Win32ExitCode
ServiceSpecificExitCode
CheckPoint
WaitHint

These keys correspond to the members of the SERVICE_STATUS struct.( refer to the Win32 Programmer's Reference V4 pg332 ).

PauseService($hostname ,$servicename ) ResumeService($hostname ,$servicename )

$hostname: Name of the host. If NULL, then the localhost.
$servicename: Name of the service.

This Pair of calls pause and resume services.

GetServices($hostname,(out)\@list )

$hostname: Name of the host. If NULL, then the localhost.
(out)$list: Reference to hold the list returned from EnumServices.

EnumServices returns a list of available services in @$list.

Example

   #stop all services 
   use Win32::Service; 
   #Get a list of available services. 
   Win32::Service::EnumServices(NULL,\@list );
   
   #attempt to stop each service. 
   foreach $Service (@list){
      Win32::Service::StopService( NULL,$Service ); 
   }

Win32::NetResource

Data

%SHARE_INFO
The ShareInfo hash is used to pass information to the NetResource functions concerned with shares.

   KEY                    VALUE
'netname'   =>     Name of the share.
'type'      =>     Type of share.
'remark'    =>     A string comment.
'permissions'   => Permissions value
'maxusers'      => The max # of users.
'current-users' => The current # of users.
'path'    =>       The path of the share.
'passwd'  =>       A password if one is req'd

NETRESOURCE

  KEY                      VALUE
'Scope'  =>       Scope of an Enumeration. See Scopes below.
'Type'   =>       The type of resource to Enum. See Types below.
'DisplayType'=>   The way the resource should be displayed.See Display below.
'Usage'      =>   Specifies the Resources usage: see Usage below.
'LocalName'  =>   Name of the local device the resource is connected to.
'RemoteName' =>   The network name of the resource.
'Comment'  =>     A string comment.
'Provider' =>     Name of the provider of the resource.

Scope values
RESOURCE_CONNECTED   The resource is already connected.
RESOURCE_REMEMBERED  The resource is reconnected each time the user logs on.
RESOURCE_GLOBALNET   The resource is available to the entire network.

Type values:
RESOURCETYPE_ANY     All resources
RESOURCETYPE_DISK    Disk resources
RESOURCETYPE_PRINT   Print resources

Display Type
RESOURCEDISPLAYTYPE_DOMAIN    The object should be displayed as a domain. 
RESOURCEDISPLAYTYPE_SERVER    The object should be displayed as a server
RESOURCEDISPLAYTYPE_SHARE     The object should be displayed as a sharepoint.
RESOURCEUSAGE_CONNECTABLE     The resource can be connected to a local device.
RESOURCEUSAGE_CONTAINER       The resource contains more resources.

Functions

GetSharedResources((out)\@Resources,dwType)

(out)\@Resources: A list of references to %NETRESOURCE hashes.
DwType: The type of the enumeration.

Creates a list in @Resources of %NETRESOURCE hash references.This list contains all network resources. ( Shared printers, disks, etc ).

AddConnection(\%NETRESOURCE,$Password,$UserName,$Connection)

\%NETRESOURCE: A hash representing the connection to make.
$Password: The password of the user making the connection
$UserName: The username of the user.
%Connection: flag for connection

Makes a connection to a network resource specified by %NETRESOURCE, for the user $user.The $Connection flag determines whether the connection should be remembered for the user, for all logins.

CancelConnection($Name,$Connection,$Force)

$Name: The name of the local device the resource is connected to.
$Connection: Type of connection.
$Force: Boolean: whether or not to force the connection.

Cancels a connection to a network resource connected to local device $name.$Connection is either 1 - persistent connection or 0, non-persistent.

WNetGetLastError((out)$ErrorCode(out),$Description,(out)$Name)

(out)$ErrorCode: The error code number.
(out)$Description: A description of the error.
(out)$Name: The name of the error.

Gets the Extended Network Error. This is only applicable if Win32::GetLastError() returns ERROR_EXTENDED_ERROR.

GetError( (out)$ErrorCode )

(out)$ErrorCode: last error caused by a Win32 Network call.

Gets the last Error for a Win32::NetResource call.

GetUNCName( (out)$UNCName, $LocalPath );

(out)$UNCName: The UNC name of the network connection.
$LocalPath: The name of the local path.

Returns the UNC name of the disk share connected to $LocalPath in $UNCName.
NOTE: The $servername arg is optional for all of the Share calls.

NetShareAdd(\%SHARE,$parm_err,$servername )

%SHARE: A ShareInfo hash describing the share.
(out)$parm_err: An error value describing any errors that occurred.
$servername: Name of the server.

Offer a disk resource for sharing on the network.

NetShareCheck($device,(out)$type,$servername)

$device: Name of the device to be checked for shared access.
(out)$type: On return, contains the type of share.
$servername: Name of the server.

Check if a share is available for connection. The value in $type is only valid if the funtion returns a true value ( non-zero ).

NetShareDel( $netname, $servername )

$netname: The name of the share.
$servername: The machine offering the share.

Remove a share from a machine's list of shares.

NetShareGetInfo( $netname, (out)\%SHARE,$servername)

$netname: The network name of the share.
(out): \%SHARE The SHARE_INFO hash describing the share.
$servername: The server.

Get the %SHARE_INFO information about the share $netname on the server $servername.

NetShareSetInfo( $netname,\%SHARE,(out)$parm_err,$servername)

$netname: The network name of the share.
\%SHARE: The SHARE_INFO hash describing the share.
(out)$parm_err: The error status.
$servername: The name of the server.

Set the information for share $netname.

Example

   use Win32::NetResource;
   use Win32;
   $ShareInfo = {
      'path' => 'e:\\temp', 
      'netname' => "myshare",
      'remark' => "This mine, leave it alone",
      'passwd' => "", 
      'current-users' =>0, 
      'permissions' =>0,
      'maxusers' => 10, 
      'type' => 10
      };
      
      Win32::NetResource::NetShareAdd( $ShareInfo,$parm )|| warn();
      $NewShare = {};
      Win32::NetResource::NetShareGetInfo("Temp",$NewShare) || warn();
      $Aref=[];
      Win32::NetResource::GetSharedResources($Aref,0);
      #try to connect to the Temp share.
      # Find the NETRESOURCE information for the Temp share.
      
      foreach $href (@$Aref ){ 
           $myRef = $href if( $href->{'RemoteName'} =~ /Temp/ );
           }
      $myRef->{'LocalName'}= "Z:";
      Win32::NetResource::AddConnection($myRef,$passwd,$user,0);
      Win32::NetResource::GetUNCName($UNCName, "Z:" );
      print "UNCName of the share is $UNCName\n");
      Win32::NetResource::CancelConnection("Z:",0,1);
      Win32::NetResource::NetShareDel("Temp")|| print "not ";

Perl for Win32 System Module Extensions

System Module Extensions

Conventions

Table of Contents

Win32::Process

Win32::Semaphore

Functions

Methods

Example

Win32::IPC

Functions

Example

Implementation note

Win32::Mutex

Functions

Example

Win32::ChangeNotification

Functions

Methods

Example

Win32::Eventlog

Functions

Methods

Example 1

Example 2

Win32::Registry

methods

Example

Win32::NetAdmin

Functions

Example

Implementation Note

Win32::File

Functions

Example

Win32::Service

Functions

Example

Win32::NetResource

Data

Functions

Example

Perl for Win32
System Module Extensions